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INTRODUCTION 


OVERVIEW 

EXTENDED FIG-FORTH fully implements the standard FORTH. as defined in the Forth Interest 
Group's (fig) Implementation Guide . It roughly follows the 6502 Rev. 1.1 FORTH sources 
as supplied by the Forth Interest Group (FORTH INTEREST GROUP. P.O. Box 1105. San Carlos. 
CA 94070). Many changes were incorporated in adapting the sources to the ATARI Home 
Computer, but the definitions, operation, and user interfaces were implemented exactly as 
described in the Implementation Guide . Many additional definitions have been added, 
including extended double-precision words such as 2DUF. 2SWAP. D@. and D!. Further, the 
standard FORTH Editor, and a complete Assembler for the 6502 are included, as well as a 
set of ATARI Color/Graphic definitions. ATARI OS definitions, and a set of ATARI 
Floating-point definitions. One new definition. SAVE > (and CSAVE) allows a 
self-booting image of FORTH to be made on a diskette or cassette that will include new 
definitions you add; this feature allows application packages to be produced in volume. 
Definitions not implemented are DLIST. MON, and TASK. The complete set of ATARI 
Screen-Editor capabilities is implemented, making editing and changing FORTH programs 
simple and straightforward. 

These instructions assume you are already familiar with FORTH. However, the manual does 
contain two bibliographies, one for works pertaining to FORTH and a more general one. 

There is also a two-page FORTH HANDY REFERENCE summary in the back. 

If you're a beginning FORTH programmer, an excellent book to help you get started is 
Starting FORTH , by Leo Brodie. written at FORTH, Inc.» and published by Prentice-Hall. 

There are some differences between FORTH Inc.'s "PolyForth" and fig-FORTH* the word 
'S is SPG in fig-FORTH} the word CREATE cannot be used to create an array name 
directly, as shown in the book} and the only character that defines a double-precision 
value in fig-FORTH is the decimal point, whereas PolyForth allows several others, and 
there are other differences between PolyForth and fig-FORTH. 


REQUIRED ACCESSORIES 
Cassette version 
16K RAM 

ATARI 410 Program Recorder 

(Note. FORTH as a computer language isn't very workable in a cassette-only 
environment. But applications software using FORTH can be put onto a self-booting 
cassette if desired.) 

Diskette version 

16K RAM 

ATARI 810 Disk Drive 
OPTIONAL ACCESSORIES 
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All ATARI peripherals and accessaries 

(Nate. Extended fig-FORTH will work with any ATARI printer using two new 
definitions, PON , and POFF which turn the printer an and off. The printer does 
not print the prompts as they occur an the screen, allowing very clean printouts^) 


CONTACTING THE AUTHOR 

Users wishing to contact the author about Extended fig-FORTH may write to him at. 

206 Northside Road 
Bellevue, WA 98004 

or call him at; 


206/453-9698 


GETTING STARTED 


DISKETTE VERSION 

1. Remove any cartridge from the (Left Cartridge) slot of your computer. 

2. Place the Extended fig-FORTH diskette in your disk drive and turn on the drive and the 
computer. 

3. The program will load into memory and the prompt "fig-FORTH 1.1" will display when the 
load is complete. Press the RETURN key to display the standard FORTH prompt 11 ok 

4. The Editor. Assembler. Debug. OS. Color/Graphics, and Floating-point packages included 
with Extended fig-FORTH must be loaded in after booting-up the disk. Instructions for 
loading and using each package follow. 

5. After loading in whichever packages you need, you can make a new copy of FORTH that 
includes your loaded packages by inserting a formatted diskette into disk drive 1 and 
typing "SAVE". A self-booting copy will then be written to the new diskette. 

6. Now replace the original diskette, type " 14 LIST MARK 15 LIST MARK " . and press the 
RETURN key. Two screens of error messages will be listed and saved internally. 

7 Change diskettes once again and type " FLUSH " and the error messages will be written 
to your new diskette. You now have a clean diskette for your program development. 

8. Store the original FORTH diskette in its folder and put it in a nice safe place. Note 
that you may make a complete copy of your original diskette using the DISKCOPY routine 
described later. This will copy the whole diskette, not just the FORTH and error 
messages* 

CASSETTE VERSION 

1. Remove any cartridge from the (Left Cartridge) slot of your computer. 

2. Turn off the computer and all other peripheral devices. Insert the cassette into the 
program recorder. 

3. Hold down the START key on the computer and turn on the computer. The computer should 
beep. 

4. Press the PLAY button on the program recorder. 

5. Press the RETURN key on the computer and the cassette will load itself in. If the 
program successfully loads, you will see the prompt "fig-FORTH 1.1. 


6. SEE THE CASSETTE NOTES AT THE END OF THIS SECTION. 


NOTES ON THIS IMPLEMENTATION 


Editor and Assembler options 

You have several options regarding the EDITOR and ASSEMBLER vocabularies! in addition to 
the standard EDITOR, a version of the FORTH Inc. Editor has been included. It may be 
loaded with a 69 LOAD command. Further, the Assembler written by Wm. Ragsdale is 
supplied (use the command 75 LOAD ), which is identical to the assembler used in the 
Installation Guide. 

16K RAM limitation 

If you have only l&K of RAM you will not be able to use some of the Color/Graphics 
higher-level graphics modes without interfering with the screen buffers. 

Cold starts with SYSTEM RESET key 

The SYSTEM-RESET key calls the "COLD" (cold-start) function directly, so any new word 
definitions that have not been SAVEd will be erased. This can be a handy feature while 
debugging! press the SYSTEM RESET key to erase all your old work and leave a clean copy. 
There is a negative side! if your program wanders off into never-never land, and you have 
to press SYSTEM RESET, you'll lose all your new definitions unless you've been editing 
them into new screens. (Using the standard OS screen-editing functions excludes the use 
of the BREAK key for this purpose. The BREAK key is used to inform the system to ignore 
the previous input string,) 

FORTH and DOS incompatability 

There is no compatability between FORTH diskettes and DOS (I or H) diskettes, You may 
read a DOS diskette with a FORTH program, but unless you know exactly what you're doing, 
writing to a DOS diskette will, in all probability, make the diskette unworkable from a 
DOS point of view. The only DOS function applicable to FORTH is that FORTH expects 
DOS-formatted diskettes. 

7-bit and 8-bit output 

The word TYPE outputs only 7 bits to the screen or printer. If you want TYPE to 
output all 8-bits (which includes inverse video characters), you can type in the 
following sequence! 

HEX FF ' TYPE 14 + C! DECIMAL 

In fact, you can make up a couple of routines if you wish! 

HEX 

! MODTYPE ' TYPE 14 + C! t 

« 8-BITS FF MODTYPE ! 

! 7-BITS 7F MODTYPE ! 

DECIMAL 

Then, to set your system to type out 7 bits, type 7-BITS, and for 8 bits, type 8-BITS. 
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Further, you can use these routines in any other programs you wish, just as you would 
any other word definition. If you type VLIST with TYPE set to 8-BITS then the last 
character of each word will be in inverse video. The word EMIT always outputs all 8 
bits in each byte. TYPE uses EMIT with a mask for 7 or 8 bits. 


ERROR Screens 

The ERROR screens are 13 and 14 instead of the standard 3 and 4, This is because the 
self-booting FORTH interpreter, if it is present on the diskette you're using, occupies 
screens 0 through 7, with 6 screens available for larger versions. If your working 
diskette doesn't have a bootable FORTH on it, you may use all screens numbered 0 through 
89. Disk drive 2 screens are numbered 90 through 179. The second drive may also be 
accessed by the word DR1 , which sets an offset into the drive addresses for 
automatically accessing the second drive. The word DRO accesses the first drive. 
Alternately, the blocks are numbered 0-719 on the first drive, and 720-1439 on the second 
drive, 


Disk Blocks 

This is fig-FORTH, NOT FORTH-79! This means that disk blocks are 128 bytes long and not 
IK bytes long. Each screen is 8 blocks long, not 1 block long! A later version will be 
made available, someday, using the FORTH-79 standard, but Extended fig-FORTH uses the 
fig-FORTH standard. 
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DEFINITIONS 


SAVE- 

This word, when executed, saves a self-booting copy of the RAM-resident FORTH program to 
diskdrive 1, after setting up new parameters for COLD and FENCE . On booting up, 
all definitions will be protected by FENCE , and the FORTH vocabulary will be the 
current dictonary* This word uses (SAVE) described later, 

CSAVE - 

This word saves a self-booting copy of the RAM-resident FORTH program to the cassette 
recorder. The computer will beep twice, indicating that you are to press both the FLAY 
and the RECORD buttons on the recorder, followed by pressing the RETURN key on the 
computer, 

(SAVE) n — 

This word writes n blocks to disk drive 1, starting at sector 0, This word should not 
be used by normal FORTH programs. 

-DISK addr n2 n3 flag — n4 

This word performs the read/write on a disk, where addr is the starting RAM address, 
n2 is the diskette sector number (0-719), n3 is the drive number (1-4), and flag is 
1 for a read, and 0 for a write. On return, n4 will contain a zero if everything 
went all right, or it will contain the DOS error number returned by DOS if an error 
occurred. It is not expected that the normal FORTH program will use this word. The 
usual disk I/O word used is R/W , which is documented in the Implementation Guide . 

ASCII — c —> n 

This word places the binary value of character c on the top of the stack. 

BEEF — 

This word sounds the "beep" tone on the computer's speaker. 

BOOT- 

When executed, this word causes a cold-boot of the computer exactly as if the power were 
turned off. 

(FMT) nl-n2 

This word formats disk drive n 1 and returns the DOS status byte upon completion in n2 
, This word is used by the word FORMAT in the OS definitions. No error checks are made 
and no warnings aregiven by this word. Those functions are performed by the FORMAT word. 
For more information, see the OS section in this manual. 
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ok 


This word allows the Screen Editor (E5) to handle the standard FORTH prompt properly. The 
interpreter can "eat" the previous "ok" prompt with no other effect. It allows you to 
repeat the same input stream by placing the cursor anywhere in a previous line and 
pressing the RETURN key. 

PON- 

This word enables the printer. FFLAG is set to 1* and thereafter every character put to 
the screen will be echoed on the printer except the prompts. 

POFF- 

This word disables the printer. It sets PFLAG to zero. 

PFLAG-addr 

This word is the printer-flag. See PON. 

GFLAG — addr 

This word is the graphics-mode* cursor-control flag. When GFLAG is set to non-zero* 
FORTH will use the alternate cursor-address variables required by the Operating System to 
handle the text-window at the bottom of the screen. This variable is handled 
automatically by the various graphic commands in the Color/Graphics package. 

PROMPT — 

This word was added to handle the extended complexities of excluding the prompt from the 
printer when PFLAG is non-zero. Basically it types "ok". 


Words for using the Assembler 

A series of words are defined for the ASSEMBLER! 

NEXT 

PUSH 

PUT 

PUSHOA 

POP 

POPTWO 

BINARY 

IP 

W 

N 

XSAVE 

UP 

Please refer to the ASSEMBLER documentation for their descriptions. 
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NOTES 


THE CASSETTE VERSION 

The cassette version of fig-FORTH contains the ASSEMBLER and DEBUG vocabularies already 
loaded. Because no diskette is used, the EDITOR vacabulary is essentially useless. 

However, printouts of the EDITOR, OS, and COLOR/GRAPHICS screens are included so that you 
may type them in if you wish. The cassette version is primarily for use as an 
introduction to the FORTH language, and not as a software development system. 

Nevertheless, the CSAVE feature allows you to develop permanent versions of your FORTH 
programs. See the following section for how to erase old definitions. Note that error 
messages in the cassette version type only a number. Refer to the printout of the error 
message screens for their meaning. The error numbers start sequentially at screen 14, 
line 1 (error 1). 


MODIFYING THE DICTIONARY 

To erase a definition in your FORTH dictionary that is locked in (you get an "in 
protected dictionary" message when you try to FORGET a definition) do the following* 
using VLIST, find the name of the first word that you want to keep , call it XXX , and 
type ' XXX FENCE ! <RETURN>. This will set the dictionary protection to your XXX word. 
Then you may type FORGET name <RETURN>, where "name" is the name of the word you 
wish deleted. Note that all words above “name” are deleted. You can actually 
instruct FORTH to forget everything, so be careful. If you make an error in a new 
definition that FORTH rejects for one reason or another, you may find that you cannot 
FORGET the new definition, and, in fact, only VLIST seems able to find it at all! In such 
cases, type the word SMUDGE and you'll be able to FORGET the word. By the way, you can 
interrupt VLIST anywhere you want by pressing any key except BREAK while it is typing out 
the dictionary. 


"Go FORTH end conquer 


"Mey the FORTH be with you" 
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ASSEMBLER 


INTRODUCTION 

The ASSEMBLER vocabulary included in Extended fig-FORTH is a full-featured 6502 
assembler* capable of assembling the range of assembler op-codes* It is similar to W. 
Ragsdale's assembler used in the fig Installation Manual . To load it* type! 

39 LOAD 

As is usual in any FORTH product* the notation used in this assembler is in Reverse 
Polish Notation (RPN). This brief outline assumes you know assembly language programming 
very well* particularly in regard to the 6502. The RPN notation will seem very awkward at 
first* but it allows the full power of FORTH to be brought to bear in an assembler-level 
routine. The op-codes are very similar to standard 6502 op-codes* except that every one 
ends with a comma* a FORTH convention for assembler-level codes. Some examples will help 
describe the assembler* 

LDA 123 is written as 123 LDA* 


sifii lar ly * 


STA 

3BC0 

is 

3BC0 LDA* 

LDA 

33 * X 

is 

33 *X LDA* 

AND 

(45*X> 

is 

45 X) AND* 

STA 

(74) *Y 

is 

74 )Y STA* 

LDA 

3374*Y 

is 

3374 * Y LDA* 

LDX 

*7F 

is 

7F * LDX* 


The current BASE value (radix) of FORTH determines whether the assembler creates hex* 
decimal* or octal values (or any radix* for that matter). 

Non-standard op-codes are the A-register shifts only* which are expressed as) 

ROL.A* 

instead of the standard! 

ROL A 

and the op-code for an indirect JMP instruction* which is! 

nrmn JMP () * 
instead of! 

JMP (nrmn). 

Loop constructs use the words BEGIN* and END* (note the commas) and an alias for the 
latter UNTIL* . The END* is preceeded by a 0 s or 0 s NOT construct to determine 
loop termination. The termination test actually assembles as a BNE or BEQ instruction* as 
in the fallowing example! 

0 *X LDY * BEGIN* INY* 0= END, NEXT JMP* 
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The above routine increments the Y-Register until it is zero and exits to a routine named 
NEXT* It will be assembled as! 

LDY 0,X 
INY 

BNE #-l 
JMP NEXT 

The Branch instructions have been integrated into a generalized IF construct so that 
they may be readily incorporated into an unlabeled branch capability* The syntax is* 

IFxx, ♦♦♦ ♦ ♦ ♦ ♦ ♦ * THEN , 


or 

IFxx, ♦ ♦ ♦ ♦ ♦ • * * * ENDIF* 

where xx is the last two letters of the standard 6502 branch instructions (IFEQ, 

IFNE, IFMI, etc,). The test will be made on the Status Register as appropriate to the 
sense of the conditional branch* and if the test is TRUE* the code enclosed between the 
IFxx, and the THEN, or ENDIF, will be executed? otherwise, the enclosed code will be 
skipped. The operation of the construct is almost identical to the IF ... THEN at the 
higher-level FORTH definitions, except that nothing is popped off the stack by the IFxx, 
words. Instead, a Branch instruction is assembled. 

LEGAL EXITS 

There are only a few legal exits from assembly language FORTH routines to the main FORTH 
inner interpreter. These addresses are predefined in the main FORTH dictionary and need 
no further definition by the assembly language itself. These returns use a cccc 
IMF, sequence, as shown in later examples. The legal exits are *. 

NEXT 

This is the normal return. It takes no stack action. 

PUT 

This places the A-Register and the first item on the hardware stack on the top <af 
the stack. That is, it does a 1 ,X STA, FLA, 0 ,X STA, NEXT JMP, 
sequence. This action overwrites whatever was previously on the top of the stack. 

PUSH 

This pushes down the stack and does a PUT . This action adds one item to the 
stack. 

POP 

This performs the DROP function. 
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POFTWO 

This performs DROP DROP . 

PUSHOA 

This first pushes the A-Register, followed by a zero. Essentially* it pushes one 

byte* the A-Register* onto the stack* adding a 16-bit word to the stack with the one 
byte in the lower half. 

BINARY 

This word takes two words off the stack and replacea=s them with one word. The best 
example is the add word + . This routine does a DROP followed by a PUT * which 
overwrites the old top of the stack. 

CALLING THE ASSEMBLER 

The word CODE is used to call the assembler automatically when defining a new assembly 
level routine. The character string following CODE will become a new FORTH word having 
directly executable assembly level code. Two examples follow that do the same 
thing—they multiply the top of the stack by two, using a single left shift across the 
two bytes that are the top of the stack* 


CODE 

2* 

0 ,x 

ASL, 

1 ,x 

ROL, 

NEXT 

JHP, 


CODE 

*2 

PUT 

0 ,x 

JHP, 

LDA, 

ASL.A, 

PHA, 

1 

,X LDA, 

ROL.A, 


The first routine shifts the actual memory locations of the top of the stack. This 
procedure is quite short and very fast. The second routine is the more universal 
method, in that the arguments are first loaded to the A-Register and later stored. 

Notice that the low order byte is pushed to the hardware stack and the high-order byte is 
left in the A-Register on the return to PUT . The second example shows how words are 
retrieved from the stack and how a return is made. To reach the second word down on the 
stack* you would use 2 ,X LDA* to access the low byte and 3 *X LDA* to access the 
high byte, and so on. You can increment the stack pointer (push the stack) with a DEX, 
DEX, sequence* and pop the stack with an INX* INX* pair. In fact* the DROP word 
does a simple INX, INX, NEXT JMF, sequence. 

If your routines need the X-Register for any reason, you must save it off someplace. A 
very convenient place called XSAVE is provided. Do a XSAVE STX* later followed by a 
XSAVE LDX, instruction. 

Several other addresses are made available as "hooks" into the FORTH system. These are 
predefined words you use at your own risk (you'd better study up a bit before doing so), 
but some routines, such as in the assembler itself, need these addresses. 
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IP 


This is the Intepreter Instruction Pointer, which points to the next word to be 
executed. 

W 

This is the actual execution address of the current word being executed* 

N 

This is a convenient eight-byte (4-word) save area where you may save your words and 
bytes by storing them in N+0 , N+l * N+2 N+7 . You can use the following 

sequence to call an internal routine called SETUP* # 2 LDA, SETUP JSR, if you 
want to copy the top two stack words into N+0 ... N+3, low bytes first* Use # 3 for 
the top three stack words* and so on* This does not change the stack itself* it only 
extracts copies of however many words you want* 

On entry to your routine* the Y-Register will contain a zero. This fact can be handy for 
clearing out bytes or registers* For example* you can dear the A-Register with a simple 
TAY* instruction* 

Using the assembler* like in almost any assembly level programming* is playing with fire, 
and you'll probably get burned from time to time* But, one of the delights of FORTH is 
that you can simply re-boot and try again. Careful examination of your code will 
probably dear up your problems. 

Note * A good descripton of Wm. Ragsdale's assembler is in Dr. Dobb's Journal. Vol. 

6, No. 9 (Sept. '31). This assembler is quite similar on the surface. Internally* they 
are totally different approaches to solving the same problem using FORTH. Reading 
Ragsdale's code and reading the code for this assembler could be very instructive in the 
area of assembly level FORTH programming. 
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COLOR/GRAPHICS <& SOUND> 


INTRODUCTION 

You must have already loaded the ASSEMBLER Vocabulary into your FORTH dictionary before 
the COLOR/GRAPHICS definitions will LOAD properly. Once you have the ASSEMBLER loaded, 
type*. 


50 LOAD 

A small demo program will draw a box and FIL it in Graphics Mode 5 when you enter the 
word FBOX . Type? 

57 LOAD 
FBOX 

Type 57 LIST to examine the program itself. 

NOTE. As in BASIC, a color value of zero is used to erase a point. Also, note that in 
Graphics Mode 8. there are only two color values! zero or one. 


DEFINITIONS 

The following words have been defined for use with Extended fig-FORTH in programming 
color graphics. Most resemble the commands used in ATARI BA5IC. 

SETCOLOR nl n2 n3 — 

Color register nl (0..4) is set to color n2 (0..15) at luminance n3 (0..7). This 
word is very similar to ATARI BASIC's SETCOLOR command. 

SE. nl n2 n3 — 

This is a synonym for SETCOLOR using an the abbreviation used in ATARI BA5IC. 

GR. n — 

This word selects Graphics Mode n where n is defined as in ATARI BASIC's "GRAPHICS 
n" command, (plus modes 9, 10. and 11). 

XGR - 

This word allows easy exit from Graphics Modes 1-8. It essentially does a " 0 GR ". 
POS nl n2- 

This word sets the X (nl) and Y (n2) coordinates for the next point to be plotted. 

It does not plot anything by itself. It is primarily used in the FIL word 
definition. 

PLOT n 1 n2 n3- 

This word uses the color value given by nl to plot the point at position X <n2), 
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Y (n3). 


DRAW nln2n3 - 

This word draws a line from the last plotted point * using color value nl to the 
point X (n2), Y (n3) . 

FIL n — 

This word fills the enclosed area just drawn with color value n. The ATARI BASIC 
FILL command is somewhat awkward to use. Careful reading of the ATARI BASIC 
Reference Manual is recommended. 


G" — cccc" 

In Graphics Modes 1 or 2 this word performs the way the word does in text mode. 
The character string cccc will be compiled if in compiler mode or typed out if in 
interpreter mode. The POS word may be used to position the output. 


SOUND 

The sound command definition is practically identical to ATARI BASIC's SOUND definition. 
But another word not present in ATARI BASIC lets you alter the "filter" values described 
in the HARDWARE MANUAL as AUDCTL. The word FILTER! sets this control register. 

SOUND nl n2 n3 n4 — 

This word is used as! chan freq dist vol SOUND . nl is the channel number 
(0-3); n2 is the frequency, as described in the ATARI BASIC Reference Manual ? 
n3 is the distortion control (an even number between 0 and 14); and n4 is the 
volume (0-15). 

FILTER! nl - 

This word stores a value between 0 and 255 into audio control register AUDCTL. The 
default condition is 0 FILTER!. Using this control is not at all straightforward, 

Please refer to the HARDWARE MANUAL if you wish to alter the contents of this 
control register. Or, you can try a few different values and see what happens! 
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DEBUG 


INTRODUCTION 

Load the DEBUG package by typing! 

21 LOAD 

The package includes several very useful features for testing and debugging your FORTH 
programs. 

Each function is described below, in standard FORTH terminology. 


DEFINITIONS 
B? — 

This word types out the current BASE value (radix) without changing it. It overcomes 
an intrinsic difficulty in typing only BASE ? » which always returns the value 
10 no matter what the current radix is. ( 10 is the right answer, always.) This 
word types out the value Base 10. so that if your current base is hex. B? will 
type out 16 . 

CDUMP addr n - 

This word types out n bytes in character format, starting at addr. For example, to 
display the characters in any disk block, say. sector 34. type 34 BLOCK 128 
CDUMP . 

DUMP addr n- 

This word types out n bytes in numerical format using the current value of BASE. 
Tou can go from a decimal dump to a hex dump by typing HEX first (and vice-versa). 

DECOMP cccc - 

This word decompiles the previously entered, colon definition cccc for debugging 
purposes. Use this word cautiously. It is defined for the purpose of decompiling 
colon definitions only, and it can go off to never-never land if you try to 
decompile things like dictionary headers (e.g., FORTH), words terminated by {CODE 
or words whose definitions do not end in 1, such as ABORT . Most non-colon 
definitions will cause the message " Primitive 11 to display if you try to decompile 
them. Try DECOMP VLIST and DECOMP Q to see the different results. 

FREE - 

This word types out the number of free bytes of dictionary space left. NOTE that 
this number will vary depending on the current graphics mode. 

H. n — 

This word outputs the top of the stack in hexadecimal, no matter what the current 
value of BASE is. It is similar to U. (unsigned type-out). 
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This word prints out the contents of the stack in unsigned form using the current 
BASE (radix)* It doesn't change the contents of the stack in any way* This is 
easily the most useful debugging tool* During program development you will probably 
use it very frequently. 



DISKCOPY 


The diskette copying routine supplied with this package is minimal* Load it into memory 
by typing 

36 LOAD 

To invoke the copy routine* type DISKCOPY and you will be prompted for what to do. 

This routine requires 32K of RAM to operate, and uses one drive to copy 90 sectors at a 
time. You may interrupt the copy routine by pushing the SYSTEM RESET key when you think 
it has copied enough sectors for your application. Or, you may copy single FORTH 
screens, two at a time, by using the LIST and MARK words as described in the introduction. 


EDITOR 


INTRODUCTION 

The Editor in Extended fig-FORTH is the Screen Editor described in the Forth Interest 
Group's Installation Manuals complete and unchanged* It isn't the most sophisticated 
editor around* and it has some quirks that take getting used to* For example* it's 
difficult to insert spaces into a line of text* But the Editor is specifically designed 
to work with FORTH screens* and it's handy for that purpose* 

To load the Editor into your system* put the Extended fig-FORTH diskette into drive 1 and 
type? 


27 LOAD 

Ignore any errors regarding duplicate names* To use the Editor* you must first type 
EDITOR to set the context to the Editor vocabulary. To edit a given screen* first type 
n LIST to load the screen into memory. 

One new word has been added to the Editor vocabulary t MARK • This word will mark 
every line in the current screen (the one you last used the LIST command with) as having 
been modified* so that when a subsequent FLUSH command is given* the whole screen will 
be written out. It is used primarily to update backup diskettes and to duplicate single 
screens onto other diskettes. 

Whenever you've finished an editing session* type the word FLUSH to save vour 
work * It is quite important to get into the habit of doing this. If you fail to do 
so* and subsequently your program bombs out* you can lose the last screen you edited. 


COMMANDS 

WORD FORM DOES 
L L 

This word Lists the current screen. The current screen is changed by n 
LIST which will list out screen n and make it the current screen. 

T n T 

This word Types out line n and puts the cursor at the beginning of 
that line* 

E n E 

This word Erases line n • 

D n D 

This word Deletes line n and moves up all following lines. Save the 
contents of the line in a buffer so that you can use an I command later* 
if desired. 
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P n P cccc 

This word Puts the character string cccc into line n and erases the 
previous contents, if any. Use this command to create new lines. The 
string cccc may be any combination of characters and spaces up to 64 
characters. 

I n I 

This word Inserts the buffer from the previous D command into a line 
created immediately above line n and then moves all following lines 
(including n) down one line. The last line is lost. 

F F cccc 

This word Finds character string cccc in the current screen starting 
from the current cursor position. 

B B 

This word Backs up the cursor over the word you just found using the F 
command. 

C C cccc 

This word inserts Character string cccc into the current line at the 
current cursor position. This is the primary character-entry command (see 
also P ). 

M n M 

This word Moves the cursor n characters forward or backward (backward 
if n is negative). 

S n S 

This word Spreads the current screen at line n , creating a new line 
immediately preceeding line n and moving all following lines down one. 

The last line will be lost. 

X X cccc 

This word extracts the character string cccc and shortens up the line. 

This is the primary find-and-delete command. The X command uses the F 
command, which means that the string search will commence from the current 
cursor position. 

CLEAR n CLEAR 

This word CLEARS screen n by completely filling it with blanks. It 
destroys any previous information on that screen. Note that an unused, 
unCLEARed screen will be filled with hearts, which is the ATARI null 
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character* CLEAR will replace the hearts with spaces* 

COPY n m COPY 

This word COPYs screen n onto screen m . It destroys any old 
information on screen m . 

MARK MARK 

This word MARKs the current screen as having been modified* A subsequent 
FLUSH command will cause the entire screen to be written out. Use it to 
copy a single screen to another diskette. 


The best way to learn the Editor is to pick an arbitrary unused screen and use the LIST 
and CLEAR commands to erase it and make it the current screen* Then use the P command 
to put several lines of text into the new screen* Then* try out the various commands* 
one at a time* until they become somewhat familiar* Use the command FLUSH if you want 
to keep the results of your work handy* otherwise* use the command EMPTY-BUFFERS to 
erase all traces of your screen editing. 


t 
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FLOATING-POINT 


INTRODUCTION 

The floating-point package uses the ATARI floating-point routines in OS ROM, exactly as 
ATARI BASIC does. The routines aren't very fast, but they are easily accessible and 
fairly complete (there are no transcendental functions except LOG and EXP). Most of the 
floating-point word definitions follow the conventions for double-precision words as far 
as spelling goes, making them very easy to remember. 

Before loading the floating-point package, first make sure that you have already loaded 
the ASSEMBLER. Then put in the master diskette and type! 

60 LOAD 

The floating-point routines will be loaded into the current dictionary. 

All floating-point operations assume three-word variables (fn) with few exceptions. The 
only real variant from standard FORTH nomenclature occurs in the definition of 
floating-point constants and variables (FCONSTANT and FVARIABLE) in that these operations 
expect a floating-point number to be on the stack already. Therefore, the syntax is a bit 
different from single-precision or double-precision constants and variables, 

A single-precision variable would, for example, be written. 

1234 VARIABLE MYNUM 

whereas a floating-point variable would be written! 

FLOATING 1234 FVARIABLE MYNUM 

To reduce typing, the word FLOATING has been given the synonym FP 5 

FP 1234 FVARIABLE MYNUM 

In fact, the word FLOATING or FP should precede any floating number if you wish that 
number to be placed on the stack in floating-point format. 

You may enter floating-point numbers in any standard Fortran "E" format! 

1.234 
.00000001 
-7.8945E-31 
9999999 


All the above numbers are legal floating-point numbers as long as they are preceeded by 
FP or FLOATING . The decimal point is optional for integer values. The package is easy to 
use. Here's an example of a square-root function definition! 

! FSQRT FLOG FP 2.0 F/ FEXP ! 

The routine expects a floating-point value on the top of the stack (top three words), 
takes the natural log of the value, enters the floating-point value 2.0, divides the 
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numbers* and raises the result to the power "e". This is the standard "slow" square-root 
routine used in mathematics. 


DEFINITIONS 

The following definitions conform to the standard FORTH nomenclature* with the addition 
of the symbol fn (e.g.* fl* f2)* which represents a three-word floating-point number. 


FCONSTANT fl-cccc 

The character string cccc will be a new word* which will place the floating-point 
constant fl on the stack, fl is normally preceeded by the word FLOATING or FF. 

FVARIABLE fl-cccc 

The character string cccc will be a new word* which will return the address of the 
floating-point variable whose initial value will be fl. fl is normally preceeded by 
the word FLOATING or FP. 

FDUP fl-fl fl 

This word duplicates the floating-point number on the top of the stack. 

FDROP fl f2 — fl 

this word drops the floating-point number on the top of the stack. 

FSWAF fl f2-f2 fl 

this word reverses the order (swap) of the top two floating-point numbers on the 
stack. 

FOVER fl f2-fl f2 fl 

This word copies the second floating-point number and places it on the top of the 
stack. 

FLOATING-cccc —> fl 

This word converts the character string cccc to a floating-point number and places 
it on the top of the stack, cccc must be in valid Fortran-style* floating-point 
number representation* such as* 1.23 or .67E9 or -9.876E-21 or 5 . There is no 
error check. If the string cccc is invalid* the value of fl will be undetermined. 

FF — cccc —> fl 

This is a synonym for FLOATING. 

FG addr — fl 

This word loads the floating-point number whose address is on the top of the stack. 


F! fl addr 


This word stores the floating-point number at the address on the top of the stacks A 
total of 4 words will be dropped from the stack at the completion of F! . 

F. fl — 

This word types out the floating-point number on top of the stack* The output format 
will be identical to ATARI BASIC's output format* The floating-point number will 
then be dropped from the stack* 

F? addr — 

This word types out the floating-point number whose address is on top of the stack* 
F+ fl f2-f3 

This word adds the top two floating-point numbers and places the result on the top 
of the stack. 

F- fl f2-f3 

This word subtracts the floating-point number f2 from the floating-point number fl 
and places the result on the top of the stack. 

F* fl f2 - f3 

This word multiplies the top two floating-point numbers and places the result on 
the top of the stack. 

F./ fl f2 - f3 

This word divides the floating-point number fl by the floating-point number f2 and 
places the result on the top of the stack. 

FLOAT n - fl 

This word converts the integer on top of the stack is to a floating-point number and 
places the result on the top of the stack. 

FIX fl — n 

This word fixes the floating-point number on the top of the stack (after rounding) 
and places it on the top of the stack. The range of the integer result must be 
between -32768 and 32767. 

FLOG fl-f2 

This word replaces the floating-point number on the top of the stack with the 
number's natural logarithm. 
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FLOG 10 fl-f2 


This word replaces the floating-point number on the top of the stack with the 
number's log base 10. 

FEXF fl — f2 

This word raises the floating-point number on the top of the stack to the power "e" 
and replaces the top of the stack# 

FEXF10 fl — f2 

This word raises the floating-point number on the top of the stack to the power 10 
and replaces the top of the stack# 

F0= f 1 — flag 

This word drops the floating-point num ber from the stack and tests it. If the 
number is equal to zero# a true flag (1) is placed on the stack# otherwise# a false 
flag (0) is placed on the stack# 

F= f 1 f2-flag 

This word drops the top two floating-point numbers from the stack and compares them# 
If they're equal# a true flag (1) is placed on the stack# otherwise# a false flag 
(0) is placed on the stack. 

F=< f 1 f2-flag 

This word drops the top two floating-point numbers from the stack and compares them# 
If fl is strictly less than f2# then a true (1) flag is placed on the stack# 
otherwise# a false (0) flag is placed on the stack. 


COMMENTS 

This package isn't meant to be exhaustive# nor is any claim made for its level of 
usefulness# However# if you need floating-point capabilities# the package works quite 
well to extend the range of numbers# particularly in scientific calculations# 

Trignometric functions could be added by a clever programmer. A sufficient set is SIN# 
COS# and ATN# A random-number generator could also be added. In fact# any number of 
features could be added# 

In summary# if you can't implement your program specifications using the double-precision 
capability of FORTH# then try this floating-point package. 
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OPERATING SYSTEM 


INTRODUCTION 

This vocabulary package implements the full set of ATARI computer's OS I/O routines. It 
also adds a FORMAT command, as well as a BOOT850 command, which downloads the RS-232 I/O 
package into the system so that you may use the asynchronous I/O supplied in ROM in the 
ATARI 850 Interface Module (devices "Rl”, "R2", etc.). 

Load the OS definitions package by typing. 

81 LOAD 

Load the BOOT850 package by typing! 

83 LOAD 

Be aware that the ATARI 850 I/O routines take up nearly 2K of RAM. and they are loaded 
directly into the dictionary. i 


DEFINITIONS 


bonified'*%!*£* 


OPEN add»j nl/n2 h3 /-— n4 


This word opens the device fatose name is at addr.- on channel nl with AUX1 value 
n2 and AUX2 value n3. Upon return, it places the OS STATUS byte on top of the 
stack. The address of the name may be obtained by storing the character name in 
PAD and then referencing PAD in the OPEN command. EXAMPLE! ASCII S PAD C! 
will set the character "S"'into the PAD buffer. ThenT"FAD 3 12 0 OPEN will 
open "S!" on channel 3, with AUX1 = 12 (read-and-write).'ahd v AUX2 = 0 . 


CLOSE nl-n2 


This word closes channel nl and returns the status byte at the top of the stack 
(n2). The status byte will always be a 1 (operation complete, no errors). 


PUTC char nl-n2 


This word outputs the character char on channel nl and returns status byte n2. 
GETC nl — char n2 

This word gets one character from channel nl and returns it and the status byte 
n2. 


GETREC addr nl n2 — n3 

This word inputs record to address addr but no more than nl characters from 
channel n2. It returns status byte n3. 

FUTREC addr nl n2 — n3 

This word outputs nl characters from a buffer whose address is addr to channel 
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n2. It returns status byte n3« 

STATUS nl-n2 

This word gets the status byte from channel nl« 

DEVSTAT nl-n2 n3 n4 

This word gets the device status bytes n2 and n3 and the normal status byte n4 
from channel nl. 

SPECIAL nl n2 n3 n4 n5 n6 n7 n8 - n9 

This command is the OS "Special" command that does anything any of the others can't. 

nl thru n6 are the values of AUX1 thru AUX6 » n7 is the command byte (whatever 
your device wants), and n8 is the channel number. The command returns the status 
byte n9. 

FORMAT- 

This word formats a diskette. The command is self-prompting. 

BOOT850 — 

This word boots the Atari 850 Interface Module software drivers into the dictionary. 
Screen 83 must be loaded to execute this command. DO NOT TRY TO EXECUTE THIS 
COMMAND TWICE IN A ROW. THE SYSTEM WILL LOCK UP IF YOU DO. 
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FORTH BIBLIOGRAPHY 


In order of technical level 


1* Starting FORTH # Leo Brodie* Prentice-Hall 

The best all-around book for anyone beginning programming*Mand not just in FORTH* This quite new 
book is everything one could want in a FORTH primer* It begins by assuming that you know absolutely 
nothing about computers at all and leads you to some quite sophisticated programs at the end* Even 
experienced programmers will learn a great deal from this fine work* HOWEVER* the text is not too 
compatible with fig-FORTH* There are many examples that will cause trouble when using fig-FORTH* 
Nevertheless***buy this book !! ♦*♦♦ and read it !!! 

2* Invitation to FORTH * Harry Eatzan* Jr*# Petrocelli Books 

This book is for the total novice* and deals primarily with introducing the first-time computer user 
to the fundamental concepts of computer programming* and explores FORTH somewhat casually as it 
moves along* Non-novice users will become impatient with the long elementary discussions and the 
awkward type-face (no descenders)* 

3* BYTE Magazine* Vol*5 No*6 (Aug* 'SO) 

The FORTH-dedicated issue which helped bring the concepts of FORTH to thousands of people who 
might not otherwise have ever heard of the language* While the presentations are somewhat erratic in 
their technical content* the whole issue deserves reading to acquire a taste for FORTH* 

4* Dr* Dobb's Journal * Vol*6 No*? (Sept* '81) 

A second “dedicated issue" on the FORTH Language* This issue approaches FORTH from quite a 
philosophical point of view* and is excellent reading for the somewhat advanced programmer who* say* 
already knows several languages* The issue is a wealth of ideas and solid FORTH programs *♦♦ the 
Ragsdale Assembler* for one ! 

5* 4 FORTH PRIMER * W* Richard Stevens* Kitt Peak NatT Observatory 

This is a “self-study" guide to FORTH from the place where it all started* The FORTH described 
differs somewhat from fig-FORTH* but the book is quite good* It includes some floating-point words 
which are not too different from the package included with this product* 

6* Systems Guide to fio-FORTH * C* H* Ting* Qffete Enterprises* 

A complete* in-depth analysis of every fig-FORTH word used in the entire fig-FORTH vocabulary* If 
you ever wondered just exactly how a word such as 'INTERPRET' works *♦* it's all here !! For the 
advanced FORTH programmer* 

7* Threaded Interpretive Languages* R* G* Loeliger* McGraw-Hill 

This is a definitive work for those who want to write their own FORTH Language processor* It uses 
SOSO code for its examples* but the routines are so well explained that it would be quite easy to 
translate the code to any other processor* The FORTH isn't exactly fig-FORTH* but the differences are 
quite minor* and are easily accomodated* 

8* FORTH Dimensions * the journal of the Forth Interest Group (fig) All Vols* 

These bound journals are available from the Forth Interest Group* P*0* Eox 1105* San Carlos* CA 
94070* The FORTH Language at its best and its worst* A highlv-technical journal for the FORTH addict* 

ALL OF THE ABOVE ARE AVAILABLE FROM: _ 

Mountain View Press 

F*0* Box 4656* Mountain View* CA 94040 

(415)-961-4103 
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GOOD BOOKS FOR LEARNING TO PROGRAM IN FORTH* 


Us ins FORTH 
FORTH Inc« 

Hernoss Beach* CA 90254 


Starting FORTH 
by Leo Brodie 
FORTH* Inc. 

Her moss Beach* CA 9025*1 
Prentice-Hall* Inc* 1981 


REFERENCES FOR DEVELOPING GOOD STRUCTURED PROGRAMMING TECHNIQUES $ 


1 . 


D.L* Mills* "Executive systems and software development for mini 
computers*" Proc♦ IEEE * vol* 61* pp. 1556-1562* November 1973. 


J. Koudela* Jr.* "The past* present and future of minicomputers*" 
Proc. IEEE * vol. 61, pp. 1526-1534, November 1973* 


R* Burns and D. Savitt* "Microprogramming and stack architecture 
ease the minicomputer programmer's burden*" Electronics * vol. 46* 
15 February 1973. 


4* D.E. Knuth* The Art of Computer Programming ♦ vol. I* Reading* 
Mass.: Addison-Wesley* 1968. 


G.A. Korn, Min i computers for Scientists and Engineers ♦ New York; 
McGraw-Hill', 1973. “ . 


THE FOLLOWING ARE AVAILABLE FROM THE FORTH INTEREST GROUP P.0. 

Box 1105 SAN CARLOS* CA 94070.: 

Membership in FORTH Interest Group 

and Volume 2 (6 issues: #7 through #12) 
of FORTH DIMENSIONS. 

fig-FORTH Installation Manual* containing 
the language model of fig-FORTH* a 
complete glossary* memory map* and 
installation instruction. 

Assembly language source listing of fig- 
FORTH for specific CPU's. The above 
manual is required for installation. 

Specify the desired CPU. 
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FORTH HANDY REFERENCE 


Stack inputs and outputs are shown; top of stack on right. 
This card follows usage of the Forth Interest Group 
(S.F. Bay Area): usage aligned with the Forth 78 
International Standard. 

For more info: Forth Interest Group 
P.O. Box 1105 
San Carlos, CA 94070. 


Opomnd koy: n, nl,... 16-bit signed numbers 
d, dl.... 32-bit signed numbers 
u 16-bit unsigned number 

addr address 

b 8-bit byte 

c 7-bit ascii character value 

f boolean flag 


STACK MANIPULATION 


DUP ( 

DROP ( 

SWAP ( 

OVER < 

ROT < 

-OUP < 

>R ( 

R> ( 

R < 


n - n n ) 
n - ) 

nl n2 n2 nl ) 
nl n2 — nl n2 nl ) 
nl n2 n3 - n2 n3 nl ) 
n-n?) 
n - ) 

- n ) 

- n ) 


Duplicate top of stack. 

Throw away top of stack. 

Reverse top two stack items. 

Make copy of second item on top. 

Rotate third item to top. 

Duplicate only if non-zero. 

Move top item to "return stack" for temporary storage (use caution). 
Retrieve item from return stack. 

Copy top of return stack onto stack. 


NUMBER BASES 


DECIMAL ( 

HEX ( 

BASE ( 


) 

) 

addr ) 


Set decimal base. 

Set hexadecimal base. 

System variable containing number base. 


ARITHMETIC AND LOGICAL 

+ 

( nl n2 — sum ) 

D+ 

< dl d2 — sum ) 

- 

( nl n2 — diff ) 

* 

( nl n2 — prod ) 

/ 

( nl n2 - quot ) 

MOO 

( nl n2 — rem ) 

/MOO 

( nl n2 — rem quot ) 

•/MOD 

( nl n2 n3 — rem quot 

V 

( nl n2 n3 - quot ) 

MAX 

( nl n2 — max ) 

MIN 

( nl n2 — min ) 

ABS 

( n - absolute ) 

DABS 

( d - absolute ) 

MINUS 

( n - -n ) 

DMINUS 

( d -—d ) 

AND 

( nl n2 — and ) 

OR 

( nl n2 - or ) 

XOR 

( nl n2 — xor ) 


Add. 

Add double-precision numbers. 

Subtract <n1-n2). 

Multiply. 

Divide (n1/n2). 

Modulo {i.B. remainder from division). 

Divide, giving remainder and quotient. 

Multiply, then divide (n1*n2/n3), with double-precision intermediate. 
Like VMOD, but give quotient only. 

Maximum. 

Minimum. 

Absolute value. 

Absolute value of double-precision number. 

Change sign. 

Change sign of double-precision number. 

Logical AND (bitwise). 

Logical OR (bitwise). 

Logical exclusive OR (bitwise). 


COMPARISON 


< 

( nl n2 - f ) 

> 

( nl n2 - f ) 

a 

( nl n2 — f ) 

0< 

< n - f ) 

0= 

( n - f > 


True if nl less than n2. 

True if nl greater than n2. 

True if top two numbers are equal. 

True if top number negative. 

True if top number zero (/.s., reverses truth value). 


MEMORY 

© 

( addr - n ) 

i 

( n addr - ) 

C© 

( addr - b ) 

C! 

( b addr - ) 

7 

( addr - ) 

+! 

( n addr - ) 

CMOVE 

( from to u - 

FILL 

( addr ub- 

ERASE 

( addr u - ) 

BLANKS 

( addr u - ) 


Replace word address by contents. 

Store second word at address on top. 

Fetch one byte only. 

Store one byte only. 

Print contents of address. 

Add second number on stack to contents of address on top. 
Move u bytes in memory. 

Fill u bytes in memory with b, beginning at address. 

Fill u bytes in memory with zeroes, beginning at address. 

Fill u bytes in memory with blanks, beginning at address. 


CONTROL STRUCTURES 


DO ... LOOP 
I 

LEAVE 

DO .. . +LOOP 

IF. .. (true),.. ENOIF 
IF... (true).. ELSE 
...(false)... ENOIF 
BEGIN .. , UNTIL 
BEGIN . . . WHILE 
,.. REPEAT 


do: ( end-M start - ) 
( — index ) 

( - ) 

do: ( end-M start - ) 
-Hoop: ( n - ) 
ft ( f - ) 
ft ( f - ) 

until: ( f - ) 
while: ( f - ) 


Set up loop, given index range. 

Race current index value on stack. 

Terminate loop at next LOOP or +LOOP. 

Like DO ■ ■. LOOP, but adds stack value (instead of always '1') to index. 

If top of stack true (non-zero), execute. (Note: Forth 78 uses IF .. THEN.] 

Same, but if false, execute ELSE clause. (Note: Forth 78 uses IF... ELSE.. . THEN.] 

Loop back to BEGIN until true at UNTIL [Note: Forth 78 uses BEGIN . .. END.] 
Loop while true at WHILE; REPEAT loops unconditionally to BEGIN. 

(Note: Forth 78 uses BEGIN . IF . -. AGAIN.] 
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TERMINAL INPUT-OUTPUT 


.R 

D. 

D.R 

CR 

SPACE 

SPACES 

DUMP 

TYPE 

COUNT 

7TERMINAL 

KEY 

EMIT 

EXPECT 

WORD 


< n - ) 

( n fieldwidth — ) 

< d - > 

< d fieldwidth - ) 

( - ) 

< - ) 

< n - ) 

( " ) 

( addr u - ) 

( addr u - ) 

( addr - addr+1 u ) 

( - M 
( - c ) 

( c - ) 

( addr n - ) 

( c - ) 


Print number. 

Print number, right-justified in field. 

Print double-precision number. 

Print double-precision number, right-justified in field. 

Do a carriage return. 

Type one space. 

Type n spaces. 

Print message (terminated by "). 

Dump u words starting at address. 

Type string of u characters starting at address. 

Change length-byte string to TYPE form. 

True if terminal break request present. 

Read key, put ascii value on stack. 

Type ascii value from stack. 

Read n characters (or until carriage return) from input to address. 

Read one word from input stream, using given character (usually blank) as delimiter. 


INPUT-OUTPUT FORMATTING 


NUMBER 

<# 

# 

#S 

SIGN 

#> 

HOLD 


( addr - d ) 

( - ) 

( d - d ) 

( d - 0 0 ) 

( n d - d ) 

( d - addr u ) 
( c - ) 


Convert string at address to double-precision number. 

Start output string. 

Convert next digit of double-precision number and add character to output string. 
Convert all significant digits of double-precision number to output string. 

Insert sign of n into output string. 

Terminate output string (ready for TYPE). 

Insert ascii character into output string. 


DISK HANDLING 


LIST 

LOAD 

BLOCK 

B/BUF 

BLK 

SCR 

UPDATE 

FLUSH 

EMPTY-BUFFERS 


( screen — ) 

( screen — ) 

( block - addr ) 
( - n ) 

( - addr ) 

( - addr ) 

( - ) 

( - ) 

( - ) 


List a disk screen. 

Load disk screen (compile or execute). 

Read disk block to memory address. 

System constant giving disk block size in bytes. 
System variable containing current block number. 
System variable containing current screen number. 
Mark last buffer accessed as updated. 

Write all updated buffers to disk. 

Erase all buffers. 


DEFINING WORDS 

' xxx ( — ) 

; ( - ) 

VARIABLE xxx ( n — ) 

xxx: ( - addr ) 

CONSTANT xxx ( n - ) 

xxx: ( — n ) 

CODE xxx ( - ) 

.CODE ( - ) 


<BUILDS . . DOES> does: ( - addr ) 


Begin colon definition of xxx. 

End colon definition. 

Create a variable named xxx with initial value n; returns address when executed. 

Create a constant named xxx with value n; returns value when executed. 

Begin definition of assembly-language primitive operation named xxx. 

Used to create a new defining word, with execution-time "code routine" for this data 
type in assembly. 

Used to create a new defining word, with execution-time routine for this data type in 
higher-level Forth. 


VOCABULARIES 


CONTEXT 

( - addr ) 

Returns address of pointer to context vocabulary (searched first). 

CURRENT 

( - addr ) 

Returns address of pointer to current vocabulary (where new definitions are put). 

FORTH 

( - ) 

Main Forth vocabulary (execution of FORTH sets CONTEXT vocabulary). 

EDITOR 

( - ) 

Editor vocabulary; sets CONTEXT. 

ASSEMBLER 

( - ) 

Assembler vocabulary; sets CONTEXT. 

DEFINITIONS 

( - ) 

Sets CURRENT vocabulary to CONTEXT. 

VOCABULARY xxx 

( - ) 

Create new vocabulary named xxx. 

VLIST 

( - ) 

Print names of all words in CONTEXT vocabulary. 

MISCELLANEOUS AND SYSTEM 

► * 

( 

( - ) 

Begin comment, terminated by right paren on same line; space after (. 

FORGET xxx 

( - ) 

Forget all definitions back to and including xxx. 

ABORT 

( - ) 

Error termination of operation. 

' xxx 

( - addr ) 

Find the address of xxx in the dictionary; if used in definition, compile address. 

HERE 

( - addr ) 

Returns address of next unused byte in the dictionary. 

PAD 

( - addr ) 

Returns address of scratch area (usually 68 bytes beyond HERE). 

IN 

( - addr ) 

System variable containing offset into input buffer; used, e.g., by WORD. 

SP@ 

( - addr ) 

Returns address of top stack item. 

ALLOT 

( n - ) 

Leave a gap of n bytes in the dictionary. 

I- 

( n - ) 

Compile a number into the dictionary. 


Forth Interest Group, P.O. Box 1105, San Carlos, CA 94070 


0 ( DEBUGGER AIDS -- DUMP , CDUMP ) 
1 

2 BASE 0 HEX 

3 

4 02FE CONSTANT DSPFLG 




6 

7 5 DSP,ON 0 DSPFLG ! 

8 : DSP,OFF 1 DSPFLG ! I 

9 ( USED BY "DUMP" ) 

10 

11 J H. BASE 0 HEX U. BASE ! ! 

12 

13 } B? BASE 0 DECIMAL . BASE ! } 

14 

15 —> 


SCR # 22 

0 ( DEBUGGER AIDS — DUMP , CDUMP ) 

1 DECIMAL 

2 1 ?EXIT 7TERMINAL 

3 IF LEAVE ENDIF } 

4 .* U,R 0 SWAP D,R 5 

5 .* LDMP DUP 8 + SWAP DO I C@ 4 ,R 

6 LOOP; 

7 : DUMP OVER + SWAP DO CRI 5 U.R I 

8 LDMP 7EXIT 8 +LOOP CR J 

9 : CDMP DUP 16 + SWAP DO 

10 I C0 EMIT LOOP,* 

11 ; CDUMP OVER + SWAP DO CR I 5 U.R I 

12 SPACE DSP.OFF CDMP DSP.ON 

13 7EXIT 16+LOOPCRJ 

14 

15 -r-> 


SCR # 23 

0 ( STACK PRINTER ) 
1 

2 HEX 


4 ,* DEPTH SP0 12 +ORIGIN @ SWAP -2/} 

5 J S. ( PRINTS THE STACK ) 

6 DEPTH -DUP IF 

7 0 DO CR TOP+" I. 

8 SPQ I 2 * + @ U. LOOP 

9 ELSE Stack Empty" THEN CR } 

10 
11 
12 

13 BASE ! 

14 

15 —> 

SCR # 24 

0 ( DEFINITION TRACER ) 

1 BASE @ HEX 

2 0 VARIABLE .WORD 

3 ' CLIT CFA CONSTANT .CLIT 

4 ' OBRANCH CFA CONSTANT ZBRAN 

5 ' BRANCH CFA CONSTANT BRAN 

6 ' ,‘S CFA CONSTANT SEMIS 

7 ' (LOOP) CFA CONSTANT PLOOP 

8 ' (+LOOP) CFA CONSTANT FFLOOP 

9 ' (.") CFA CONSTANT PDOTQ -3l~ 


10 1 PWORD 2+ NFA ID. ! 

11 ! 1BYTE PWORD .WORD <2 C@ . 1 .WORD +! 

12 ! 1 WORD PWORD .WORD <5 @ . 2 .WORD +! } 

13 ! NP DUP SEMIS = IF PWORD CR CR 

14 PROMPT QUIT THEN ?TERMINAL IF 

15 PROMPT QUIT THEN J 


SCR # 25 

0 ( DEFINITION TRACER ) 

1 

2 .' ERNCH PWORD ." to " .WORD (2 .WORD (2 (2 + . 2 .WORD +! } 

3 

4 : STG PWORD 22 EMIT .WORD (2 DUP COUNT TYPE 22 EMIT 

5 C(2 .WORD (2 + 1+ .WORD ! 

6 

7 ' LIT CFA CONSTANT .LIT 

3 

9 : CHIT DUP ZERAN = OVER BRAN = 

10 OR OVER PLOOP = OR OVER PPLOOP = 

11 OR IF ERNCH ELSE DUP .LIT = 

12 IF 1WORD ELSE DUP .CLIT = 

13 IF 1BYTE ELSE DUP PDOTQ = IF STG 

14 ELSE PWORD THEN THEN THEN THEN \ 

15 --> 

SCR # 26 

0 ( DEFINITION TRACER ) 

1 ' I 12 + CONSTANT DOCOL 

'7 

3 .* T?FR CR CR ." Primitive" CR CR } 

4 ! ?DOCOL DUP 2 - (2 DOCOL - IF 

5 T?FR PROMPT QUIT THEN J 

7 : SETUP [COMPILE] ' 7DOCOL .WORD ! } 
o 

9 ! NXTl .WORD (2 U. 2 SPACES .WORD 

10 (2 (2 2 .WORD +! ; 

11 

12 .* DECOMP SETUP CR CR BEGIN NXTl NP 

13 CKIT CR AGAIN } 

14 

15 BASE ! ,*S 

SCR # 27 

0 ( ** EDITOR ** ) 

1 

2 BASE (2 HEX 

4 ( THIS EDITOR IS PATTERNED AFTER 

5 ( THE EXAMPLE EDITOR IN THE fig 

6 ( "INSTALLATION MANUAL" S/80 WFR 

7 

S J TEXT HERE C/L 1+ BLANKS WORD 
HERE PAD C/L 1+ CMOVE ! 

10 

11 ! LINE DUP FFFO AND 17 3ERROR SCR 

12 (2 (LINE) DROP J 

13 

14 ! MARK 10 0 DO I LINE UPDATE 

15 DROP LOOP? — > 

SCR # 23 

0 ( LINE EDITOR DEFS ) 

1 VOCABULARY EDITOR IMMEDIATE 

2 ! WHERE DUP E/SCR / DUP SCR ! ." SCR # " DECIMAL . 

3 SWAP C/L /MOD C/L * ROT BLOCK + CR C/L -TRAILING TYPE CR HERE 


4 - SPACES 5E EMIT [COMPILE! EDITOR QUIT } 

5 

6 EDITOR DEFINITIONS 

7 I #LOCATE R# @ C/L /MOD I 

3 I #LEAD #LOCATE LINE SWAP J 

9 I #LAG #LEAD DUP >R + C/L R> - } 

10 

11 I -MOVE LINE C/L CMOVE UPDATE I 

12 

13 

14 

15 —> 


SCR # 29 

0 ( LINE EDITING COMMANDS ) 

1 I B LINE PAD 1+ C/L DUP PAD C! 

2 CMOVE; 

3 I E LINE C/L BLANKS UPDATE t 

4 { S DUP 1 - OE DO I LINE I 1+ 

5 -MOVE -1 +LOOP E J 

6 { D DUP H OF DUP ROT 

7 DO I 1 + LINE I -MOVE LOOP E I 


10 —> 
11 
12 

13 

14 

15 


SCR # 30 

0 ( LINE EDITING COMMANDS ) 

1 

2 I M R# +! CR SPACE #LEAD TYPE 

3 17 EMIT #LAG TYPE #LOCATE 

4 ,DROP ; 

5 I T DUP C/L * R# ! DUP H 0 M \ 

6 I L SCR (? LIST 0 M J 

7 ! R PAD 1+ SWAP -MOVE } 

SIP 1 TEXT R I 

9 11 DUP S R I 

10 I TOP 0 R# ! ; 

11 
12 

13 —> 

14 

15 

SCR # 31 

0 ( SCREEN EDITOR COMMANDS ) 

1 

2 

3 I CLEAR SCR ! 10 0 DO FORTH I 

4 EDITOR E LOOP } 

5 

6 
7 

C| 

9 

10 I COPY B/SCR * OFFSET @ + SWAP 

11 B/SCR * B/SCR OVER + 

12 SWAP DO DUP FORTH I 

13 BLOCK 2 - ! 1+ UPDATE 

14 LOOP DROP FLUSH I 

15 —> 



SCR # 32 

0 ( STRING EDITING COMMANDS ) 

1 

2 .* 1LINE #LAG PAD COUNT MATCH R# 

3 +! } 

4 

5 

6 ! FIND BEGIN 3FF R# Q < IF TOP 

7 FAD HERE C/L1+CMOVE 0 

3 ERROR ENDIF 1LINE UNTIL 

? } 

10 

11 ! DELETE >R #LAG + FORTH R - 

12 #LAG R MINUS R# +! #LEAD 

13 + SWAP CMOVE R> BLANKS 

14 UPDATE| 

15 —> 

SCR # 33 

0 ( SCREEN EDITING COMMANDS ) 

1 

2 : N FIND 0 M } 

■z> 

4 : F 1 TEXT N ; 

5 

6 ! B PAD C@ MINUS M J 

7 

8 J X 1 TEXT FIND PAD CQ DELETE 

9 OMi 

10 

11 J TILL #LEAD + 1 TEXT 1LINE 0= 

12 0 ?ERROR #LEAD + SWAP - 

13 DELETE OM; 

14 

15 


SCR # 34 

0 ( SCREEN EDITING COMMANDS ) 

1 

2 J C 1 TEXT PAD COUNT #LAG ROT 

3 OVER MIN >R FORTH R R# +! 

4 R - >R DUP HERE R CMOVE 

5 HERE #LEAD + R> CMOVE R> 

6 CMOVE UPDATE 0 M } 

7 

8 

9 FORTH DEFINITIONS DECIMAL 

10 

11 LATEST 12 +ORIGIN ! 

12 HERE 28 +ORIGIN ! 

13 HERE 30 +ORIGIN ! 

14 ' EDITOR 6 + 32 +ORIGIN ! 

15 HERE FENCE ! JS 


SCR # 35 
0 
1 


4 

5 

6 

7 

8 
9 



10 

11 

12 

13 

14 

15 

SCR # 36 

0 ( DISK COPY ROUTINE 40K RAM ) 

1 ( 40 K RAM AND DRIVES #1 AND #2 ) 

2 

3 24576 CONSTANT BUFHEAD 

4 0 VARIABLE BLK# 0 VARIABLE ADRS 

5 1 GET ADRS @ BLK# @ } 

6 l RD GET DUP 713 = IF LEAVE THEN 1 R/W I 

7 ! WRT GET 720 +DUP 1438 = IF LEAVE THEN 0 R/W J 
S I +BLK 1 BLK# +! 128 ADRS +! I 

9 SETUP BLK# i BUFHEAD ADRS ! J 

10 

11 RDIN SETUP 90 0 DO RD +BLK 

12 LOOP; 

13 I WRTO SETUP 90 0 DO WRT +BLK 

14 LOOP; 

15 —> 


SCR # 37 

0 ( DISK COPY ROUTINE ) 

1 

2 (INSERT SOURCE DISK IN DRIVE #1 

3 ( AND NEW DISK IN DRIVE #2. THEN, 

4 ( SIMPLY TYPE "DISKCOPY" ! 

5 

6 : MSI CR CR 

7 INSERT SOURCE IN DRIVE #1 AND" 
S CR NEW DISK IN DRIVE #2” CR 

9 HIT ANY KEY WHEN READY..." 

10 KEY DROP ; 

11 

12 : %COPY 0 DO I 90 * 

13 DUP DUP RDIN WRTO 

14 90 + . LOOP ; 

15 —> 

SCR # 38 

0 ( DISK COPY ROUTINE ) 

1 

2 

3 I DISKCOPY CR MSI CR 8 ‘/.COPY ,* 

4 

5 

6 1 FORTHCOPY CR MSI CR 5 %COPY | 

7 

S IS 

9 

10 
11 
12 

13 

14 

15 

SCR # 39 

0 ( ** ASSEMBLER *# IN FORTH ) 

1 

2 ( ASSEMBLER COMFORMS TO THE 

3 ( fiq "INSTALLATION GUIDE" WITH 



4 ( THE FOLLOWING EXCEPTIONS! 

5 

6 ( SHIFTS ARE! "XXX,A" FOR A-REG. 

7 ( SHIFTS* 

S ( CONDITIONAL BRANCHES ARE 

9 ( PATTERNED AFTER THE BRANCH OP- 

10 ( CODES! "IFEC!," IS USED IN- 

11 ( STEAD OF "0= IF," FOR BETTER 

12 ( CLARITY. SEE SCREEN 43. 

13 

14 

15 --> 

SCR # 40 

0 ( ASSEMBLER VOCABULARY ) 

1 

2 VOCABULARY ASSEMBLER IMMEDIATE 

•n, 

4 BASE @ HEX 

5 

6 ! CODE [COMPILE] ASSEMBLER 

7 CREATE SMUDGE ! 

$ 

9 ASSEMBLER DEFINITIONS 

10 

11 ! SB -CBUILDS C, DOES> @ C, ! 

12 ( SINGLE BYTE OPERATORS) 

13 

14 

15 —> 

SCR # 41 

0 ( SINGLE-BYTE OPERANDS ) 

1 

2 00 SB BEK, IS SB CLC, D8 SB CLD, 

3 58 SB CLIf B3 SB CLV, CA SB DEX, 

4 88 SB DEY, E8 SB IHX, C8 SB INY, 

5 EA SB NOP, 48 SB FHA, 08 SB PHP, 

6 68 SB PLA, 28 SB PLP, 40 SB RTI, 

7 60 SB RTS, 38 SB SEC, F8 SB SED, 

8 78 SB SEI, AS SB TAX, BA SB TSX, 

9 8A SB TXA, 9 A SB TXS, 98 SB TYA, 

10 

11 0A SB ASL.A, 2A SB ROL.A, 

12 4A SB LSR.A, 6A SB ROR.A, 

13 

14 ! NOT 0= ? ( REVERSE LOGICAL ) 

15 ! 0® 1 ! ( PUSH A TRUE ) --> 

SCR # 42 

0 ( JMF, JSR, BRANCH CODES ) 

1 

2 ! 3BY -.'BUILDS C, DOES.' & C, , J 

4 4C 3BY JMF, 6C 3BY JMFO, 

5 20 3BY JSR, 

6 

7!?ER5 5 ?ERROR { 

S 

9 ! IF. '[BUILDS C, DOES> C@ C, 0 

10 C, HERE } 

11 5 THEN, DUP HERE SWAP - DUP 

12 7F 0 ?ER5 DUP -80 < ?ER5 

13 SWAP-l+CI! 

14 ! ENDIF, THEN, ! 

15 


SCH # 43 

0 ( CONDITIONAL BRANCH CODES ) 

1 

2 10 IF, IFFL, ( BFL ) 

2 30 IF. IFMI, ( BMI ) 

4 50 IF, IF VC, ( BVC ) 

5 70 IF, IFVS, ( BVS ) 

690 IF.IFCC, ( BCC ) 

7 BO IF, IFCS, (BCS) 

S DO IF. IFNE, ( BNE ) 

9 FO IF. IFEQ, ( BEQ ) 

10 

11 .* BEGIN, HERE ; 

12 ! END, IF DO ELSE FO THEN C, 

13 HERE 1 + - DUP 

14 -80 •: ?ER5 C, ,* 

15 : UNTIL, END, | 

SCR # 44 

0 ( MEMORY-REFERENCE INST. ) 

1 

2 OD VARIABLE MODE ( ABS. MODE ) 

4 .* MODE= MODE Q = ! ( CK MODE ) 

5 5 256< DUP 100 ( HEX) < J 

6 ! MODEFIX 256< IF -08 MODE +! 

7 THEN ; 

8 ( MODE=MODE-8 IF ADR<256 ) 

9 ,* CKMODE MODE= IF MODEFIX 

10 THEN ; 

11 ! MO CBUILDS C, DOES} SWAP 

12 OD CKMODE ID CKMODE SWAP 

12 C(? MODE (? OR C, 256< IF 

14 C, ELSE , THEN OD MODE ! } 

15 —} 


SCR # 45 

0 ( MEMORY REF. INST, ) 


1 

2 ! X) 01 MODE ! ; 
2 I # 09 MODE ! J 

4 .' )Y 11 MODE ! ; 

5 J »X ID MODE ! 1 

6 ,’ »Y 19 MODE ! ; 

7 

8 


( CADDR,X: ) 

(IMMEDIATE ) 
( CADDRI,Y ) 

(ADDR,X ) 

(ADDR,Y ) 


9 00 M0 ORA, 20 MO AND, 40 MO EOR, 

10 60 MO ADC, 80 MO STA, AO MO LDA, 

11 CO MO CMP, EO MO SBC, 


12 


13 } BIT, 256C IF 24 C, C, ELSE 

14 2C C, , THEN ; 

15 —> 


SCR # 46 

0 ( MEMORY REF. INC, CPX, ETC. ) 

1 

2 : STOREADD C, 256< IF C, ELSE , 

3 THEN OD MODE ! *, 

4 

5 J ZPAGE OVER 100 C IF F7 AND 

6 THEN ,' 

7 : XYMODE MODE Q 19 = MODE @ ID 

8 = OR ; 

9 : Ml '-'BUILDS C, DOES.} CQ MODE G 



10 ID = IF 10 ELSE 0 THEN OR 

11 ZPAGE STOREADD ; 

12 

13 0E Ml ASL, 2E Ml ROL, 4E Ml LSR, 

14 &E Ml ROR, CE Ml DEC, EE Ml INC, 

15 — 

SCR # 47 

0 ( MEMORY REF. INST, ) 

1 

2 ! OFCODE C@ ZPAGE XYMODE IF 10 

3 OR THEN ,' 

4 ! M2 ""BUILDS C, DOESX OPCODE 

5 MODE @ 9 = IF 4 - THEN 
k STOREADD } 

7 

8ACM2LDY, AE M2 LDX, 

9 CC M2 CPY, EC M2 CPX, 

10 

11 M3 CBUILDS C, DOES> OPCODE 

12 STOREADD ? 

13 

14 SC M3 STY, 8EM3STX, 

15 —> 


SCR # 48 

0 ( END OF ASSEMBLER ) 

1 

2 FORTH DEFINITIONS 

3 

4 

5 LATEST 0C +ORIGIN ! ( NTOP ) 

6 

7 HERE 1C +ORIGIN ! ( FENCE ) 

s 

9 HERE IE +ORIGIN ! ( DP ) 

10 
11 
12 

13 

14 

15 BASE ! ;S 

SCR # 49 
0 
1 


4 

5 

6 
7 

C; 

9 

10 
11 
12 

13 

14 

15 


SCR # 50 

0 ( COLOR COMMANDS ) 

1 BASE <5 HEX 

2 : SETCOLOR 2 * SNAP 10 * OR SNAP 

3 02C4 ( COLPFO ) + C! J 


4 SE» SETCOLOR ! ( ALIAS ) 


■ 6 ( 

7 

8 ( 

9 

10 ■ 
11 
12 

13 

14 


REGISTER#-3> 
0-3 0-F 


COLOR-2, LVM-1 


0-7 


15 


SCR # 51 

0 ( GRAPHICS COMMANDS ) 

1 E456 CONSTANT CIO 

2 1C VARIABLE MASK 

3 340 CONSTANT IOCB 

4 53 VARIABLE SNAME 

5 • 

6 CODE GR, 1 # LDA, GFLAG STA, 

7 XSAVE STX, 0 ,X LDA, 

8 # 30 LDX, IOCB 0B + ,X STA, 

9 # 3 LDA, IOCB 2 + ,X STA, 

10 SNAME FF AND # LDA, IOCB 4 + ,X 

11 STA, SNAME 100 / # LDA, 

12 IOCB 5 + ,X STA, MASK LDA, 

13 IOCB 0A + ,X STA, CIO JSR, 

14 XSAVE LDX, 0 # LDY, POP JMP, 

15 —> 

SCR # 52 

0 ( GRAPHICS COMMANDS ) 

1 

2 CODE &GR XSAVE STX, # 30 LDX, 

3 # C LDA, IOCB 2 + 

4 ,X STA, CIO JSR, 

5 XSAVE LDX, 0 # LDA, 

6 GFLAG STA, NEXT JMP, 

7 

8 J XGR S;GR 0 GR SGR 

9 ( EXIT GRAPHICS MODE ) 

10 

11 —> 

12 

13 

14 

15 


SCR # 53 

0 ( GRAPHICS I/O 5 
1 

2 CODE CFVT 0 ,X LDA, PHA, 

3 XSAVE STX, #30 LDX, 

4 # B LDA, IOCB 2 + ,X STA, TYA, 

5 IOCB 8 + ,X STA, IOCB 9 + ,X 

6 STA, FLA, CIO JSR, XSAVE LDX, 

7 POP JMP. 

8 

9 54 CONSTANT ROWCRS 

10 55 CONSTANT COLCRS 

11 

12 ! FOS ROWCRS C! COLCRS ! ,* 

13 ! PLOT FOS CFVT ,' 

14 



SCR # 54 

0 ( GRAPHICS I/O ) 

1 

2 : GTYFE -DUF IF OVER + SWAP 

3 DO I C@ CFUT LOOP ELSE 

4 DROP ENDIF ! 

5 

6 ,* (G") R COUNT DUF 1+ R> + >R 

7 GTYPE J 

8 

9 : G* 22 STATE (? IF COMPILE (G") 

10 WORD HERE C(? 1+ ALLOT 

11 ELSE WORD HERE COUNT GTYFE 

12 ENDIF {IMMEDIATE 

13 

14 

15 

SCR # 55 
0 ( DRAW, FIL ) 

1 

2 2FB CONSTANT ATACHR 

3 2FD CONSTANT FILDAT 

4 

5 CODE GCOM XSAVE STX, 0 ,X LDA, 

6 # 30 LDX, IOCB 2 + ,X STA, 

7 CIOJSR, XSAVE LDX, POP JMP, 

3 

9 } DRAW POS ATACHR C! 11 GCOM ,' 

10 

11 J FIL FILDAT C! 12 GCOM ,' 

12 

13 BASE ! JS 

14 

15 


SCR # 56 

0 ( GRAPHICS TESTS ) 

1 

2 .* BOX 0 10 10 PLOT 1 50 10 DRAW 

3 1 50 25 DRAW 1 10 25 DRAW 

4 1 10 10 DRAW ,* 

5 

6 t FBOX XGR 5 GR. BOX 

. 7 10 25 POS 2 FIL } 

S 

9 

10 
11 
12 

13 

14 

15 

SCR # 57 
0 
1 


4 


6 

7 

8 


10 

11 

'12 

13 

14 

15 


SCR # 53 
0 
1 


4 

5 

6 
7 
3 

9 

10 
11 
12 

13 

14 

15 

SCR # 59 
0 
1 


4 

5 

6 

7 

8 
9 
10 
11 
12 

13 

14 

15 


SCR # 60 

0 ( FLOATING POINT WORDS ) 

1 BASE @ DECIMAL 

2 2 FDROP DROP DROP DROP } 

3 5 FDUP >R >R DUF R> DUP ROT 

4 SWAP R ROT ROT R> ! 

5 CODE FSWAP 

6 XSAVE STX, # 6 LDY, 

7 BEGIN, 0 ,X LDA, FHA, INX, DEY, 

8 0= END, XSAVE LDX, # 6 LDY, 

9 BEGIN, 6 ,X LDA, 0 ,X STA, INX, 

10 DEY, 0= END, XSAVE LDX, # 6 LDY, 

11 BEGIN, FLA, 11 ,X STA, DEX, DEY, 

12 0= END, XSAVE LDX, NEXT JMP, 

13 HEX 

14 XSAVE 100 * 86 + CONSTANT XSAV 

15 t XS, XSAV , | —> 


SCR # 61 

0 ( FLOATING POINT WORDS ) 

1 CODE FOVER DEX, DEX, DEX, 

2 DEX, DEX, DEX, XSAVE STX, 

3 # 6 LDY, BEGIN, 12 ,X LDA, 


4 0 ,X STA, INX, DEY, 0= END, 

5 XSAVELDX, NEXT JMP, 

6 

7 XSAVE 100 * A6 + CONSTANT XLD 

s : xl, xld , ; 

9 

10 CODE AFP XS, DS00 JSR, XL, NEXT JMP, 

11 CODE FASC XS, D8E6 JSK, XL, NEXT JMP, 

12 CODE IFP XS, D9AA JSK, XL, NEXT JMP, 

13 

14 

15 

SCR # 62 

0 ( FLOATING POINT WORDS ) 

1 

2 CODE FPI XS, D9D2 JSK, XL, NEXT JMP, 

3 CODE FADD XS, DA66 JSR, XL, NEXT JMP, 

4 CODE FSUB XS, DA60 JSR, XL, NEXT JMP, 

5 CODE FML T L XS, DADB JSR, XL, NEXT JMP, 

6 CODE FDIV XS, DB2S JSR, XL, NEXT JMP, 

7 CODE FLG XS, DECD JSR, XL, NEXT JMP, 

3 CODE FLG 10 XS, DED1 JSR, XL, NEXT JMP, 

9 CODE FEX XS, DDC0 JSR, XL, NEXT JMP, 

10 CODE FEX 10 XS, DDCC JSR, XL, NEXT JMP, 

11 CODE FPOLY XS, DD40 JSR, XL, NEXT JMP, 

12 —0 

13 

14 

15 


SCR # 63 

0 ( FLOATING POINT WORDS ) 
1 

2 D4 CONSTANT FRO 
. 3 E0 CONSTANT FR1 

4 FC CONSTANT FLPTR 

5 F3 CONSTANT INBUF 

6 F2 CONSTANT CIX 

7 

8 DECIMAL 

9 

10 

11 --> 

12 

13 

14 

15 


SCR # 64 

0 ( FLOATING POINT ) 

1 

2 1 Fd >R R d R 2+ (5 R> 4 + (5 J 

3 ! FI >R R 4 + ! R 2+ I K> ! ! 

4 HEX 

5 t F.TY BEGIN INBUF d Cd DUP 

6 7F AND EMIT 1 INBUF +! 

7 SO 0 UNTIL ; 

8 DECIMAL 


10 t F, FRO Fd F3WAP FRO FI FASC 

11 F.TY SPACE FRO F! 

12 : F? Fd F, ; 

13 

14 —> 

15 


SCR $ 65 

O f FLOATING POINT ) 

1 

2 : 'F FR1 F! FRO F! J 

3: f:> fro fq \ 

4 : fs fro fi ; 

5 

6 : F+ OF FADD F> i 

7 : F- OF FSUB F> J 

8 : F* OF FMUL F> 

9 : F/ <F FDIV F> ; 

10 .* FLOAT FRO ! IFF F> * 

11 1 FIX FS FPI FRO (3 } 

12 ! FLOG FS FLG F> } 

13 l FLOG 10 FS FLG 10 F> ) 

14 J FEXP FS FEX F> 

15 I FEXP10 FS FEX 10 F> ! — > 

SCR # 66 

0 ( FLOATING POINT ) 

1 HEX 

2 .* ASCF 0 CIX ! INBUF ! AFP F> J 

3 

4 ! FLIT R> DUP 6 + >R FQ t 

5 t FLITERAL STATE @ IF 

6 COMPILE FLIT HERE F! 6 ALLOT 

7 ENDIF J 

8 : FLOATING ( FLOAT FOLLOWING CONSTANT ) 

9 BL WORD HERE 1+ ASCF 

10 FLITERAL | IMMEDIATE 

11 ( EX.* FLOATING 1.2345 ) 

12 (OR FLOATING -1.67E-13 ) 

13 

14 J FP [COMPILE! FLOATING } 

15 IMMEDIATE —> 

SCR # 67 

0 ( FLOATING POINT ) 

1 HEX 

2 } FVARIABLE 

3 CBUILDS HERE F! 6 ALLOT DOES> ,* 

4 

5 1 FCONSTANT 

6 ''BUILDS HERE F! 6 ALLOT DOES} 

7 FQ i 

8 


9 : F0= 

OR OR 0= ; 

io: f= 

F- F0= ; 

11: f< 

F- DROP DROP 80 AND 0 } 

12 


13 


14 


15 BASE 

! JS 



DISCLAIMER OF WARRANTY AND LIABILITY ON COMPUTER PROGRAMS 


Neither Atari, Inc. ("ATARI"), nor its software supplier, distributor, or dealers 
make any express or implied warranty of any kind with respect to this computer 
software program and/or material, including, but not limited to warranties of 
merchantability and fitness for a particular purpose. This computer program software 
and/or material is distributed solely on an "as is" basis. The entire risk as to the 
quality and performance of such programs is with the purchaser. Purchaser accepts 
and uses this computer program software and/or material upon his/her own inspection 
of the computer software program and/or material, without reliance upon any 
representation or description concerning the computer program software and/or 
material. Should the computer program software and/or material prove defective, 
purchaser and not ATARI, its software supplier, distributor, or dealer, assumes the 
entire cost of all necessary servicing, repair, or correction, and any incidental 
damages. 

In no event shall ATARI, or its software supplier, distributor, or dealer be liable 
or responsible to a purchaser, customer, or any other person or entity with respect 
to any liability, loss, incidental or consequential damage caused or alleged to be 
caused, directly or indirectly, by the computer program software and/or material, 
whether defective or otherwise, even if they have been advised of the possibility of 
such liability, loss, or damage, 


LIMITED WARRANTIES ON MEDIA AND HARDWARE ACCESSORIES 

ATARI warrants to the original consumer purchaser that the media on which the 
computer software program and/or material is recorded, including computer program 
cassettes or diskettes, and all hardware accessories are free from defects in 
materials or workmanship for a period of 30 days from the date of purchase, If a 
defect covered by this limited warranty is discovered during this 30-day warranty 
period, ATARI will repair or replace the media or hardware accessories, at ATARI'S 
option, provided the media or hardware accessories and proof of date of purchase are 
delivered or mailed, postage prepaid, to the ATARI Program Exchange, 

This warranty shall not apply if the media or hardware accessories (1) have been 
misused or show signs of excessive wear, (2) have been damaged by playback equipment 
or by being used with any products not supplied by ATARI, or (3) if the purchaser 
causes or permits the media or hardware accessories to be serviced or modified by 
anyone other than an authorized ATARI Service Center. Any applicable implied 
warranties on media or hardware accessories, including warranties of merchantability 
and fitness, are hereby limited to 30 days from the date of purchase. Consequential 
or incidental damages resulting from a breach of any applicable express or implied 
warranties on media or hardware accessories are hereby excluded. Some states do not 
allow limitations on how long an implied warranty lasts, so the above limitation may 
not apply to you. Some states also do not allow the exclusion Dr limitation of 
incidental or consequential damage, so the above limitation or exclusion may not 
apply tD you. 



ATARI PROGRAM EXCHANGE 


REVIEW FORM 


We're interested in your experiences with APX programs and documentation, both favorable and 
unfavorable. Many software authors are willing and eager to improve their programs if they know 
what users want. And, of course, we want to know about any bugs that slipped by us, so that the 
software author can fix them. We also want to know whether our documentation is meeting your needs. 
You are our best source for suggesting improvements! Please help us by taking a moment to fill in 
this review sheet. Fold the sheet in thirds and seal it so that the address on the bottom of the 
back becomes the envelope front. Thank you for helping us! 

1. Name and APX number of program_ 

2. If you have problems using the program, please describe them here. 


3. What do you especially like about this program? 


4. What do you think the program's weaknesses are? 


5. How can the catalog description be more accurate and/or comprehensive? 


6. On a scale of 1 to 10, 1 being "poor" and 10 being "excellent", please rate the following 
aspects of this program? 

Easy to use 

_User-oriented (e.g„ menus, prompts, clear language) 

Enjoyable 

_Self-instructive 

_Useful (non-game software) 

___ Imaginative graphics and sound 


7. Describe any technical errors you found in the user instructions (please give page numbers). 


8* What did you especially like about the user instructions? 



9, What revisions or additions would improve these instructions? 



10. On a scale of 1 to 10, 1 representing "poor" and 10 representing "excellent", how would you 
rate the user instructions and why? 



11. Other comments about the software or user instructions! 



ISTAMPI 


ATARI Program Exchange 
P.O. Box 427 

155 Moffett Park Drive, B-l 
Sunnyvale, CA 94086 


[seal here] 







